Delphi Magazine Collection 2001

home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / survive / DMDATA.DFM < prev next >
Delphi Borland Form | 1997-06-23 | 2.4 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Delphi Borland Form (archive/borlandDelphiForm).

You can browse this item here: DMDATA.DFM
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Delphi Borland Form `(archive/borlandDelphiForm)`	magic	Supported
`100%`	dexvert	JPEG XL `(image/jpegXL)`	magic	Supported
`66%`	dexvert	Digital FM `(music/digitalFM)`	ext	Supported
`100%`	file	JPEG XL codestream	default
`99%`	file	data	default
`66%`	TrID	JPEG XL bitmap	default
`33%`	TrID	MP3 audio	default (weak)
`100%`	siegfried	fmt/1484 JPEG XL Codestream	default
`100%`	gt2	Borland Delphi 3/4 Form Modul	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 0a 00 54 44 4d 44 41 | 54 41 4d 4f 44 55 4c 45 |...TDMDA|TAMODULE|
|00000010| 00 30 10 5e 09 00 00 54 | 50 46 30 0d 54 64 6d 44 |.0.^...T|PF0.TdmD|
|00000020| 61 74 61 4d 6f 64 75 6c | 65 0c 64 6d 44 61 74 61 |ataModul|e.dmData|
|00000030| 4d 6f 64 75 6c 65 08 4f | 6e 43 72 65 61 74 65 07 |Module.O|nCreate.|
|00000040| 12 64 6d 44 61 74 61 4d | 6f 64 75 6c 65 43 72 65 |.dmDataM|oduleCre|
|00000050| 61 74 65 09 4f 6e 44 65 | 73 74 72 6f 79 07 13 64 |ate.OnDe|stroy..d|
|00000060| 6d 44 61 74 61 4d 6f 64 | 75 6c 65 44 65 73 74 72 |mDataMod|uleDestr|
|00000070| 6f 79 04 4c 65 66 74 03 | c8 00 03 54 6f 70 02 68 |oy.Left.|...Top.h|
|00000080| 06 48 65 69 67 68 74 03 | 2e 01 05 57 69 64 74 68 |.Height.|...Width|
|00000090| 03 60 01 00 09 54 44 61 | 74 61 62 61 73 65 06 64 |.`...TDa|tabase.d|
|000000a0| 62 44 65 6d 6f 09 41 6c | 69 61 73 4e 61 6d 65 06 |bDemo.Al|iasName.|
|000000b0| 07 53 43 53 39 37 30 38 | 09 43 6f 6e 6e 65 63 74 |.SCS9708|.Connect|
|000000c0| 65 64 09 0c 44 61 74 61 | 62 61 73 65 4e 61 6d 65 |ed..Data|baseName|
|000000d0| 06 06 44 65 6d 6f 44 62 | 0b 4c 6f 67 69 6e 50 72 |..DemoDb|.LoginPr|
|000000e0| 6f 6d 70 74 08 0e 50 61 | 72 61 6d 73 2e 53 74 72 |ompt..Pa|rams.Str|
|000000f0| 69 6e 67 73 01 06 10 55 | 53 45 52 20 4e 41 4d 45 |ings...U|SER NAME|
|00000100| 3d 53 59 53 44 42 41 06 | 12 50 41 53 53 57 4f 52 |=SYSDBA.|.PASSWOR|
|00000110| 44 3d 6d 61 73 74 65 72 | 6b 65 79 00 0b 53 65 73 |D=master|key..Ses|
|00000120| 73 69 6f 6e 4e 61 6d 65 | 06 07 44 65 66 61 75 6c |sionName|..Defaul|
|00000130| 74 04 4c 65 66 74 02 1e | 03 54 6f 70 02 0b 00 00 |t.Left..|.Top....|
|00000140| 06 54 51 75 65 72 79 0e | 71 72 79 43 72 65 64 69 |.TQuery.|qryCredi|
|00000150| 74 49 73 73 75 65 0c 44 | 61 74 61 62 61 73 65 4e |tIssue.D|atabaseN|
|00000160| 61 6d 65 06 06 44 65 6d | 6f 44 62 0b 50 61 72 61 |ame..Dem|oDb.Para|
|00000170| 6d 73 2e 44 61 74 61 0a | 27 00 00 00 01 00 03 00 |ms.Data.|'.......|
|00000180| 06 61 6d 6f 75 6e 74 00 | 00 00 00 06 61 6d 6f 75 |.amount.|....amou|
|00000190| 6e 74 00 00 00 00 08 43 | 72 65 64 69 74 4e 6f 00 |nt.....C|reditNo.|
|000001a0| 00 00 00 0b 53 51 4c 2e | 53 74 72 69 6e 67 73 01 |....SQL.|Strings.|
|000001b0| 06 0e 75 70 64 61 74 65 | 20 43 72 65 64 69 74 73 |..update| Credits|
|000001c0| 06 51 20 20 73 65 74 20 | 73 74 61 74 75 73 20 3d |.Q  set |status =|
|000001d0| 20 27 49 27 2c 20 61 6d | 6f 75 6e 74 20 3d 20 3a | 'I', am|ount = :|
|000001e0| 61 6d 6f 75 6e 74 2c 20 | 62 61 6c 61 6e 63 65 64 |amount, |balanced|
|000001f0| 75 65 20 3d 20 3a 61 6d | 6f 75 6e 74 2c 20 69 73 |ue = :am|ount, is|
|00000200| 73 75 65 64 61 74 65 74 | 69 6d 65 20 3d 20 27 6e |suedatet|ime = 'n|
|00000210| 6f 77 27 06 1c 20 20 77 | 68 65 72 65 20 43 72 65 |ow'..  w|here Cre|
|00000220| 64 69 74 4e 6f 20 3d 20 | 3a 43 72 65 64 69 74 4e |ditNo = |:CreditN|
|00000230| 6f 00 04 4c 65 66 74 02 | 1e 03 54 6f 70 02 7b 00 |o..Left.|..Top.{.|
|00000240| 00 0b 54 53 74 6f 72 65 | 64 50 72 6f 63 0b 73 70 |..TStore|dProc.sp|
|00000250| 43 72 65 64 69 74 4e 65 | 77 0c 44 61 74 61 62 61 |CreditNe|w.Databa|
|00000260| 73 65 4e 61 6d 65 06 06 | 44 65 6d 6f 44 62 0e 53 |seName..|DemoDb.S|
|00000270| 74 6f 72 65 64 50 72 6f | 63 4e 61 6d 65 06 09 43 |toredPro|cName..C|
|00000280| 52 45 44 49 54 4e 45 57 | 0b 50 61 72 61 6d 73 2e |REDITNEW|.Params.|
|00000290| 44 61 74 61 0a 3e 00 00 | 00 01 00 03 00 09 49 43 |Data.>..|......IC|
|000002a0| 52 45 44 49 54 4e 4f 01 | 03 04 00 00 00 00 00 00 |REDITNO.|........|
|000002b0| 00 07 49 43 55 53 54 4e | 4f 01 03 04 00 00 00 00 |..ICUSTN|O.......|
|000002c0| 00 00 00 09 4f 43 52 45 | 44 49 54 4e 4f 02 03 04 |....OCRE|DITNO...|
|000002d0| 00 00 00 00 00 00 00 04 | 4c 65 66 74 02 1c 03 54 |........|Left...T|
|000002e0| 6f 70 02 46 00 00 06 54 | 51 75 65 72 79 17 71 72 |op.F...T|Query.qr|
|000002f0| 79 43 72 65 64 69 74 73 | 4f 75 74 42 79 43 75 73 |yCredits|OutByCus|
|00000300| 74 6f 6d 65 72 0c 44 61 | 74 61 62 61 73 65 4e 61 |tomer.Da|tabaseNa|
|00000310| 6d 65 06 06 44 65 6d 6f | 44 62 0b 50 61 72 61 6d |me..Demo|Db.Param|
|00000320| 73 2e 44 61 74 61 0a 15 | 00 00 00 01 00 01 00 06 |s.Data..|........|
|00000330| 43 75 73 74 4e 6f 00 03 | 04 00 00 00 00 00 00 00 |CustNo..|........|
|00000340| 0b 53 51 4c 2e 53 74 72 | 69 6e 67 73 01 06 15 73 |.SQL.Str|ings...s|
|00000350| 65 6c 65 63 74 20 2a 20 | 66 72 6f 6d 20 43 72 65 |elect * |from Cre|
|00000360| 64 69 74 73 06 1c 20 20 | 77 68 65 72 65 20 43 75 |dits..  |where Cu|
|00000370| 73 74 4e 6f 20 3d 20 3a | 43 75 73 74 4e 6f 20 61 |stNo = :|CustNo a|
|00000380| 6e 64 06 19 20 20 20 20 | 20 20 20 20 20 20 20 20 |nd..    |        |
|00000390| 20 73 74 61 74 75 73 20 | 3d 20 27 49 27 06 13 20 | status |= 'I'.. |
|000003a0| 20 6f 72 64 65 72 20 62 | 79 20 43 72 65 64 69 74 | order b|y Credit|
|000003b0| 4e 6f 06 00 00 04 4c 65 | 66 74 03 87 00 03 54 6f |No....Le|ft....To|
|000003c0| 70 02 78 00 0d 54 49 6e | 74 65 67 65 72 46 69 65 |p.x..TIn|tegerFie|
|000003d0| 6c 64 1f 71 72 79 43 72 | 65 64 69 74 73 4f 75 74 |ld.qryCr|editsOut|
|000003e0| 42 79 43 75 73 74 6f 6d | 65 72 43 52 45 44 49 54 |ByCustom|erCREDIT|
|000003f0| 4e 4f 0c 44 69 73 70 6c | 61 79 4c 61 62 65 6c 06 |NO.Displ|ayLabel.|
|00000400| 03 4e 75 6d 09 46 69 65 | 6c 64 4e 61 6d 65 06 08 |.Num.Fie|ldName..|
|00000410| 43 52 45 44 49 54 4e 4f | 00 00 0b 54 46 6c 6f 61 |CREDITNO|...TFloa|
|00000420| 74 46 69 65 6c 64 1d 71 | 72 79 43 72 65 64 69 74 |tField.q|ryCredit|
|00000430| 73 4f 75 74 42 79 43 75 | 73 74 6f 6d 65 72 41 4d |sOutByCu|stomerAM|
|00000440| 4f 55 4e 54 0c 44 69 73 | 70 6c 61 79 4c 61 62 65 |OUNT.Dis|playLabe|
|00000450| 6c 06 06 41 6d 6f 75 6e | 74 09 46 69 65 6c 64 4e |l..Amoun|t.FieldN|
|00000460| 61 6d 65 06 06 41 4d 4f | 55 4e 54 08 43 75 72 72 |ame..AMO|UNT.Curr|
|00000470| 65 6e 63 79 09 00 00 0b | 54 46 6c 6f 61 74 46 69 |ency....|TFloatFi|
|00000480| 65 6c 64 21 71 72 79 43 | 72 65 64 69 74 73 4f 75 |eld!qryC|reditsOu|
|00000490| 74 42 79 43 75 73 74 6f | 6d 65 72 42 41 4c 41 4e |tByCusto|merBALAN|
|000004a0| 43 45 44 55 45 0c 44 69 | 73 70 6c 61 79 4c 61 62 |CEDUE.Di|splayLab|
|000004b0| 65 6c 06 0b 42 61 6c 61 | 6e 63 65 20 44 75 65 09 |el..Bala|nce Due.|
|000004c0| 46 69 65 6c 64 4e 61 6d | 65 06 0a 42 41 4c 41 4e |FieldNam|e..BALAN|
|000004d0| 43 45 44 55 45 08 43 75 | 72 72 65 6e 63 79 09 00 |CEDUE.Cu|rrency..|
|000004e0| 00 0e 54 44 61 74 65 54 | 69 6d 65 46 69 65 6c 64 |..TDateT|imeField|
|000004f0| 24 71 72 79 43 72 65 64 | 69 74 73 4f 75 74 42 79 |$qryCred|itsOutBy|
|00000500| 43 75 73 74 6f 6d 65 72 | 49 53 53 55 45 44 41 54 |Customer|ISSUEDAT|
|00000510| 45 54 49 4d 45 0c 44 69 | 73 70 6c 61 79 4c 61 62 |ETIME.Di|splayLab|
|00000520| 65 6c 06 0a 49 73 73 75 | 65 20 44 61 74 65 0c 44 |el..Issu|e Date.D|
|00000530| 69 73 70 6c 61 79 57 69 | 64 74 68 02 12 09 46 69 |isplayWi|dth...Fi|
|00000540| 65 6c 64 4e 61 6d 65 06 | 0d 49 53 53 55 45 44 41 |eldName.|.ISSUEDA|
|00000550| 54 45 54 49 4d 45 00 00 | 00 06 54 51 75 65 72 79 |TETIME..|..TQuery|
|00000560| 14 71 72 79 50 61 79 6d | 65 6e 74 4d 65 74 68 6f |.qryPaym|entMetho|
|00000570| 64 73 47 65 74 0c 44 61 | 74 61 62 61 73 65 4e 61 |dsGet.Da|tabaseNa|
|00000580| 6d 65 06 06 44 65 6d 6f | 44 62 0b 53 51 4c 2e 53 |me..Demo|Db.SQL.S|
|00000590| 74 72 69 6e 67 73 01 06 | 2e 73 65 6c 65 63 74 20 |trings..|.select |
|000005a0| 2a 20 66 72 6f 6d 20 50 | 61 79 6d 65 6e 74 4d 65 |* from P|aymentMe|
|000005b0| 74 68 6f 64 73 20 6f 72 | 64 65 72 20 62 79 20 53 |thods or|der by S|
|000005c0| 65 71 75 65 6e 63 65 00 | 04 4c 65 66 74 03 86 00 |equence.|.Left...|
|000005d0| 03 54 6f 70 02 48 00 00 | 0b 54 53 74 6f 72 65 64 |.Top.H..|.TStored|
|000005e0| 50 72 6f 63 0d 73 70 50 | 61 79 6d 65 6e 74 53 61 |Proc.spP|aymentSa|
|000005f0| 76 65 0c 44 61 74 61 62 | 61 73 65 4e 61 6d 65 06 |ve.Datab|aseName.|
|00000600| 06 44 65 6d 6f 44 62 0e | 53 74 6f 72 65 64 50 72 |.DemoDb.|StoredPr|
|00000610| 6f 63 4e 61 6d 65 06 0b | 50 41 59 4d 45 4e 54 53 |ocName..|PAYMENTS|
|00000620| 41 56 45 0b 50 61 72 61 | 6d 73 2e 44 61 74 61 0a |AVE.Para|ms.Data.|
|00000630| 3d 00 00 00 01 00 03 00 | 07 49 43 55 53 54 4e 4f |=.......|.ICUSTNO|
|00000640| 01 03 04 00 00 00 00 00 | 00 00 07 49 41 4d 4f 55 |........|...IAMOU|
|00000650| 4e 54 01 03 04 00 00 00 | 00 00 00 00 0a 4f 50 41 |NT......|.....OPA|
|00000660| 59 4d 45 4e 54 4e 4f 02 | 03 04 00 00 00 00 00 00 |YMENTNO.|........|
|00000670| 00 04 4c 65 66 74 03 02 | 01 03 54 6f 70 02 47 00 |..Left..|..Top.G.|
|00000680| 00 06 54 51 75 65 72 79 | 14 71 72 79 50 61 79 6d |..TQuery|.qryPaym|
|00000690| 65 6e 74 43 72 65 64 69 | 74 53 61 76 65 0c 44 61 |entCredi|tSave.Da|
|000006a0| 74 61 62 61 73 65 4e 61 | 6d 65 06 06 44 65 6d 6f |tabaseNa|me..Demo|
|000006b0| 44 62 0b 50 61 72 61 6d | 73 2e 44 61 74 61 0a 39 |Db.Param|s.Data.9|
|000006c0| 00 00 00 01 00 04 00 09 | 50 61 79 6d 65 6e 74 4e |........|PaymentN|
|000006d0| 6f 00 00 00 00 08 43 72 | 65 64 69 74 4e 6f 00 00 |o.....Cr|editNo..|
|000006e0| 00 00 06 41 6d 6f 75 6e | 74 00 00 00 00 0a 42 61 |...Amoun|t.....Ba|
|000006f0| 6c 61 6e 63 65 44 75 65 | 00 00 00 00 0b 53 51 4c |lanceDue|.....SQL|
|00000700| 2e 53 74 72 69 6e 67 73 | 01 06 44 69 6e 73 65 72 |.Strings|..Dinser|
|00000710| 74 20 69 6e 74 6f 20 50 | 61 79 6d 65 6e 74 43 72 |t into P|aymentCr|
|00000720| 65 64 69 74 73 20 28 50 | 61 79 6d 65 6e 74 4e 6f |edits (P|aymentNo|
|00000730| 2c 20 43 72 65 64 69 74 | 4e 6f 2c 20 41 6d 6f 75 |, Credit|No, Amou|
|00000740| 6e 74 2c 20 42 61 6c 61 | 6e 63 65 44 75 65 29 06 |nt, Bala|nceDue).|
|00000750| 36 20 20 76 61 6c 75 65 | 73 20 28 3a 50 61 79 6d |6  value|s (:Paym|
|00000760| 65 6e 74 4e 6f 2c 20 3a | 43 72 65 64 69 74 4e 6f |entNo, :|CreditNo|
|00000770| 2c 20 3a 41 6d 6f 75 6e | 74 2c 20 3a 42 61 6c 61 |, :Amoun|t, :Bala|
|00000780| 6e 63 65 44 75 65 29 00 | 04 4c 65 66 74 03 80 00 |nceDue).|.Left...|
|00000790| 03 54 6f 70 03 c4 00 00 | 00 06 54 51 75 65 72 79 |.Top....|..TQuery|
|000007a0| 13 71 72 79 50 61 79 6d | 65 6e 74 41 6c 6c 6f 63 |.qryPaym|entAlloc|
|000007b0| 53 61 76 65 0c 44 61 74 | 61 62 61 73 65 4e 61 6d |Save.Dat|abaseNam|
|000007c0| 65 06 06 44 65 6d 6f 44 | 62 0b 50 61 72 61 6d 73 |e..DemoD|b.Params|
|000007d0| 2e 44 61 74 61 0a 3c 00 | 00 00 01 00 04 00 09 50 |.Data.<.|.......P|
|000007e0| 61 79 6d 65 6e 74 4e 6f | 00 00 00 00 08 43 72 65 |aymentNo|.....Cre|
|000007f0| 64 69 74 4e 6f 00 00 00 | 00 0d 50 61 79 4d 65 74 |ditNo...|..PayMet|
|00000800| 68 6f 64 43 6f 64 65 00 | 00 00 00 06 41 6d 6f 75 |hodCode.|....Amou|
|00000810| 6e 74 00 00 00 00 0b 53 | 51 4c 2e 53 74 72 69 6e |nt.....S|QL.Strin|
|00000820| 67 73 01 06 4a 69 6e 73 | 65 72 74 20 69 6e 74 6f |gs..Jins|ert into|
|00000830| 20 50 61 79 6d 65 6e 74 | 41 6c 6c 6f 63 61 74 69 | Payment|Allocati|
|00000840| 6f 6e 20 28 50 61 79 6d | 65 6e 74 4e 6f 2c 20 43 |on (Paym|entNo, C|
|00000850| 72 65 64 69 74 4e 6f 2c | 20 50 61 79 4d 65 74 68 |reditNo,| PayMeth|
|00000860| 6f 64 43 6f 64 65 2c 20 | 41 6d 6f 75 6e 74 29 06 |odCode, |Amount).|
|00000870| 3a 20 20 20 76 61 6c 75 | 65 73 20 28 3a 50 61 79 |:   valu|es (:Pay|
|00000880| 6d 65 6e 74 4e 6f 2c 20 | 3a 43 72 65 64 69 74 4e |mentNo, |:CreditN|
|00000890| 6f 2c 20 3a 50 61 79 4d | 65 74 68 6f 64 43 6f 64 |o, :PayM|ethodCod|
|000008a0| 65 2c 20 3a 41 6d 6f 75 | 6e 74 29 00 04 4c 65 66 |e, :Amou|nt)..Lef|
|000008b0| 74 03 07 01 03 54 6f 70 | 03 af 00 00 00 0b 54 53 |t....Top|......TS|
|000008c0| 74 6f 72 65 64 50 72 6f | 63 13 73 70 50 61 79 6d |toredPro|c.spPaym|
|000008d0| 65 6e 74 43 72 65 64 69 | 74 53 61 76 65 0c 44 61 |entCredi|tSave.Da|
|000008e0| 74 61 62 61 73 65 4e 61 | 6d 65 06 06 44 65 6d 6f |tabaseNa|me..Demo|
|000008f0| 44 62 0e 53 74 6f 72 65 | 64 50 72 6f 63 4e 61 6d |Db.Store|dProcNam|
|00000900| 65 06 11 50 41 59 4d 45 | 4e 54 43 52 45 44 49 54 |e..PAYME|NTCREDIT|
|00000910| 53 41 56 45 0b 50 61 72 | 61 6d 73 2e 44 61 74 61 |SAVE.Par|ams.Data|
|00000920| 0a 3f 00 00 00 01 00 03 | 00 0a 49 50 41 59 4d 45 |.?......|..IPAYME|
|00000930| 4e 54 4e 4f 01 03 04 00 | 00 00 00 00 00 00 09 49 |NTNO....|.......I|
|00000940| 43 52 45 44 49 54 4e 4f | 01 03 04 00 00 00 00 00 |CREDITNO|........|
|00000950| 00 00 07 49 41 4d 4f 55 | 4e 54 01 03 04 00 00 00 |...IAMOU|NT......|
|00000960| 00 00 00 00 04 4c 65 66 | 74 03 04 01 03 54 6f 70 |.....Lef|t....Top|
|00000970| 02 7e 00 00 00          |                         |.~...   |        |
+--------+-------------------------+-------------------------+--------+--------+